unit Unit2;

interface

uses mServer, classes;

type
    TServer = class(Server)
            public
            Strings: TStringList;
            procedure processNewConnection(pClientIP:string; pClientPort: integer);override;
            procedure processMessage(pClientIP: string; pClientPort: integer; pMessage:string); overload;override;
            procedure processClosedConnection(pClientIP:string; pClientPort: integer);overload;override;
    end;


implementation

procedure TServer.processNewConnection(pClientIP:string; pClientPort: integer);
begin
     Strings.Add('New Connection: '+pClientIP);
end;

procedure TServer.processMessage(pClientIP: string; pClientPort: integer; pMessage:string);
begin
     Strings.Add(pClientIP+': '+pMessage);
end;

procedure TServer.processClosedConnection(pClientIP:string; pClientPort: integer);
begin
     Strings.Add('New Dissconection: '+pClientIP);
end;

end.
 